#! /usr/bin/perl
use strict;
use warnings FATAL => 'all';
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
#binmode(STDERR, ':encoding(utf8)');


my $str = "本院在审理原告谭明红、祝诗羲与被告乐清市第三人民医院医疗损害纠纷一案中，原告于2014年5月19日向本院提出撤诉申请。";
$str =~ s/.*?(第三人.{3}).*/$1/g;

print $str . "\n";
print $1 . "\n";
if($str =~ /第三人(?!民医院)/) {
    print "matched";
} else{
    print "not matched";
}
